home *** CD-ROM | disk | FTP | other *** search
/ Windows Game Programming for Dummies (2nd Edition) / WinGamProgFD.iso / pc / DirectX SDK / DXSDK / samples / Multimedia / VBSamples / Misc / DXSetup / welcome.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-08  |  4.9 KB  |  153 lines
  1. VERSION 5.00
  2. Begin VB.Form frmWelcome 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "#"
  6.    ClientHeight    =   3255
  7.    ClientLeft      =   540
  8.    ClientTop       =   6000
  9.    ClientWidth     =   6435
  10.    ClipControls    =   0   'False
  11.    BeginProperty Font 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    HasDC           =   0   'False
  21.    Icon            =   "welcome.frx":0000
  22.    LockControls    =   -1  'True
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    NegotiateMenus  =   0   'False
  26.    ScaleHeight     =   3255
  27.    ScaleWidth      =   6435
  28.    ShowInTaskbar   =   0   'False
  29.    Begin VB.CommandButton cmdExit 
  30.       Cancel          =   -1  'True
  31.       Caption         =   "#"
  32.       BeginProperty Font 
  33.          Name            =   "MS Sans Serif"
  34.          Size            =   8.25
  35.          Charset         =   0
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   420
  42.       Left            =   3705
  43.       MaskColor       =   &H00000000&
  44.       TabIndex        =   1
  45.       Top             =   2655
  46.       Width           =   1440
  47.    End
  48.    Begin VB.CommandButton cmdOK 
  49.       Caption         =   "#"
  50.       Default         =   -1  'True
  51.       BeginProperty Font 
  52.          Name            =   "MS Sans Serif"
  53.          Size            =   8.25
  54.          Charset         =   0
  55.          Weight          =   400
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       Height          =   420
  61.       Left            =   1470
  62.       MaskColor       =   &H00000000&
  63.       TabIndex        =   0
  64.       Top             =   2655
  65.       Width           =   1440
  66.    End
  67.    Begin VB.Image imgWelcome 
  68.       Height          =   480
  69.       Left            =   630
  70.       Picture         =   "welcome.frx":0442
  71.       Top             =   330
  72.       Width           =   480
  73.    End
  74.    Begin VB.Label lblWelcome 
  75.       AutoSize        =   -1  'True
  76.       Caption         =   "*"
  77.       BeginProperty Font 
  78.          Name            =   "MS Sans Serif"
  79.          Size            =   8.25
  80.          Charset         =   0
  81.          Weight          =   400
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.       Height          =   195
  87.       Left            =   1305
  88.       TabIndex        =   2
  89.       Top             =   330
  90.       Width           =   4800
  91.       WordWrap        =   -1  'True
  92.    End
  93.    Begin VB.Label lblRunning 
  94.       AutoSize        =   -1  'True
  95.       Caption         =   "#"
  96.       BeginProperty Font 
  97.          Name            =   "MS Sans Serif"
  98.          Size            =   8.25
  99.          Charset         =   0
  100.          Weight          =   400
  101.          Underline       =   0   'False
  102.          Italic          =   0   'False
  103.          Strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   195
  106.       Left            =   435
  107.       TabIndex        =   3
  108.       Top             =   915
  109.       Width           =   5535
  110.       WordWrap        =   -1  'True
  111.    End
  112.    Begin VB.Shape shpWelcome 
  113.       BorderColor     =   &H00000000&
  114.       BorderWidth     =   2
  115.       Height          =   2250
  116.       Left            =   210
  117.       Top             =   135
  118.       Width           =   6015
  119.    End
  120. Attribute VB_Name = "frmWelcome"
  121. Attribute VB_GlobalNameSpace = False
  122. Attribute VB_Creatable = False
  123. Attribute VB_PredeclaredId = True
  124. Attribute VB_Exposed = False
  125. Option Explicit
  126. Private Sub cmdExit_Click()
  127.     ExitSetup Me, gintRET_EXIT
  128. End Sub
  129. Private Sub cmdOK_Click()
  130.     Unload Me
  131. End Sub
  132. Private Sub Form_Load()
  133.     Dim nTop As Single
  134.     SetFormFont Me
  135.     cmdExit.Caption = ResolveResString(resBTNEXIT)
  136.     cmdOK.Caption = ResolveResString(resBTNOK)
  137.     lblRunning.Caption = ResolveResString(resLBLRUNNING)
  138.     Caption = gstrTitle
  139.     lblWelcome.Caption = ResolveResString(resWELCOME, gstrPIPE1, gstrAppName)
  140.     nTop = lblWelcome.Top + lblWelcome.Height
  141.     If nTop > lblRunning.Top Then
  142.         lblRunning.Top = nTop
  143.     End If
  144.     shpWelcome.Move (ScaleWidth - shpWelcome.Width) \ 2
  145.     cmdOK.Left = (ScaleWidth - cmdOK.Width * 1.5 - cmdExit.Width) \ 2
  146.     cmdExit.Left = cmdOK.Left + cmdOK.Width * 1.5
  147.     EtchedLine Me, shpWelcome.Left - 50, cmdOK.Top - cmdOK.Height \ 2, shpWelcome.Width + 100
  148.     CenterForm Me
  149. End Sub
  150. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  151.     HandleFormQueryUnload UnloadMode, Cancel, Me
  152. End Sub
  153.